home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).adf
/
Widerstände & Berechnung
/
PARALLELSCHALTUNG
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-07-02
|
8KB
|
293 lines
'Dieses Programm schrieb fuer Sie
'Detlef Kornatz
'Feuerbachstrasse 6
'D-4300 ESSEN 1
'**************************************************************************
SCREEN 1,640,256,4,2
WINDOW 2,,,0,1
CLS
PALETTE 0,0.17,0.38,0 'dunkelgruen
FOR i=1 TO 8
PALETTE i,0,i/17,i/12 'PALETTEANWEISUNG kann man ändern!!
NEXT i
FOR i=1 TO 12
LINE (i+22,7+i)-(530-i,46-i),i-1,b 'TITEL
LINE (i+532,7+i)-(630-i,46-i),i-1,b 'ende
LINE (i+22,47+i)-(216-i,86-i),i-1,b 'STROM
LINE (i+22,87+i)-(216-i,126-i),i-1,b 'SPANNUNG
LINE (i+22,127+i)-(216-i,166-i),i-1,b 'RG*R1+R2
LINE (i+22,167+i)-(216-i,206-i),i-1,b 'STROM a WIDER
LINE (i+22,207+i)-(216-i,246-i),i-1,b 'RG
LINE (i+222,47+i)-(630-i,246-i),i-1,b 'AUSGABEWINDOW
NEXT i
COLOR 9,0
LOCATE 4,6 :PRINT " DIE PARALLELSCHALTUNG VON WIDERSTÄNDEN UND IHRE BERECHNUNG"
LOCATE 4,72:PRINT "ENDE"
COLOR 10,0
LOCATE 9,13:PRINT "STROM"
LOCATE 14,11:PRINT "SPANNUNG"
LOCATE 19,6:PRINT "WIDERSTAND + STROM"
LOCATE 24,6:PRINT "STROM + WIDERSTAND"
LOCATE 29,8:PRINT "GESAMTWIDERSTAND"
anfang:
ON MOUSE GOSUB mausdruck
MOUSE ON
WHILE 1 : WEND
mausdruck:
druck=MOUSE(0)
x=MOUSE(3) : y=MOUSE(4)
IF x>35 AND x<203 AND y>60 AND y<73 THEN GOSUB stro
IF x>35 AND x<203 AND y>100 AND y<113 THEN GOSUB span
IF x>35 AND x<203 AND y>140 AND y<153 THEN GOSUB stwi
IF x>35 AND x<203 AND y>180 AND y<193 THEN GOSUB wist
IF x>35 AND x<203 AND y>220 AND y<233 THEN GOSUB gesamt
IF x>545 AND x<620 AND y>20 AND y<33 THEN GOSUB ende
GOTO anfang
stro:
SOUND 293.66,5,100
WINDOW 3,,(240,63)-(611,221),0,1
COLOR 10,0
CLS:TIMER OFF
LOCATE 3,8
INPUT "WIDERSTAND R1: ";w
LOCATE 6,8
INPUT "WIDERSTAND R2: ";ww
LOCATE 9,8
INPUT "SPANNUNG : ";sp
rg=(w*ww)/(w+ww)
COLOR 14,0 :LOCATE 12,8:PRINT "GESAMTSTROM =":LOCATE 12,38:PRINT "AMPER"
LOCATE 12,27:PRINT USING "#####.###"; sp/rg
COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww)
COLOR 14,0 :LOCATE 16,8:PRINT "TEILSTROM am R1 =":LOCATE 16,38:PRINT "AMPER"
LOCATE 16,27:PRINT USING "#####.###"; sp/w
COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2 =":LOCATE 18,38:PRINT "AMPER"
LOCATE 18,27:PRINT USING "#####.###"; sp/ww
ON TIMER (3) GOSUB strom
TIMER ON
WHILE 3:SLEEP:WEND
strom:
CLS:TIMER OFF
SOUND 493.88,5,100
SOUND 293.66,5,100
COLOR 8,0
LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
CIRCLE (50,152),4,1
LINE (50,50)-(50,150),1
LINE (50,50)-(100,50),1
LINE (100,40)-(250,60),9,b 'R1
LINE (100,80)-(250,100),9,b 'R2
LINE (50,90)-(100,90),1
LINE (250,50)-(300,50),1
LINE (250,90)-(300,90),1
LINE (300,50)-(300,150),1
CIRCLE (300,152),4,1
COLOR 15,0
LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
COLOR 9,0
LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
GOTO anfang
RETURN
span:
SOUND 493.88,5,100
WINDOW 3,,(240,63)-(611,221),0,1
COLOR 10,0
CLS:TIMER OFF
LOCATE 3,8
INPUT "WIDERSTAND R1: ";w
LOCATE 6,8
INPUT "WIDERSTAND R2: ";ww
LOCATE 9,8
INPUT "STROM : ";st
rg=(w*ww)/(w+ww)
COLOR 14,0 :LOCATE 12,8:PRINT "GESAMTSPANNUNG =":LOCATE 12,38:PRINT "VOLT"
LOCATE 12,27:PRINT USING "#####.###"; st*rg :sp=st*rg
COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww)
COLOR 14,0 :LOCATE 16,8:PRINT "TEILSTROM am R1 =":LOCATE 16,38:PRINT "AMPER"
LOCATE 16,27:PRINT USING "#####.###"; sp/w
COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2 =":LOCATE 18,38:PRINT "AMPER"
LOCATE 18,27:PRINT USING "#####.###"; sp/ww
ON TIMER (3) GOSUB spannung
TIMER ON
WHILE 3:SLEEP:WEND
spannung:
SOUND 493.88,5,100
SOUND 293.66,5,100
CLS:TIMER OFF
COLOR 8,0
LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
CIRCLE (50,152),4,1
LINE (50,50)-(50,150),1
LINE (50,50)-(100,50),1
LINE (100,40)-(250,60),9,b 'R1
LINE (100,80)-(250,100),9,b 'R2
LINE (50,90)-(100,90),1
LINE (250,50)-(300,50),1
LINE (250,90)-(300,90),1
LINE (300,50)-(300,150),1
CIRCLE (300,152),4,1
COLOR 15,0
LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
COLOR 9,0
LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
GOTO anfang
RETURN
stwi:
SOUND 493.88,5,100
WINDOW 3,,(240,63)-(611,221),0,1
COLOR 10,0
CLS:TIMER OFF
LOCATE 3,8
INPUT "WIDERSTAND R1: ";w
LOCATE 6,8
INPUT "SPANNUNG : ";sp
LOCATE 9,8
INPUT "STROM : ";st
rg=sp/st
ww=(w*rg)/(w-rg)
COLOR 14,0 :LOCATE 12,8:PRINT "WIDERSTAND R2 =":LOCATE 12,38:PRINT "OHM"
LOCATE 12,27:PRINT USING "#####.###";(w*rg)/(w-rg)
COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww)
COLOR 14,0 :LOCATE 16,8:PRINT "TEILSTROM am R1 =":LOCATE 16,38:PRINT "AMPER"
LOCATE 16,27:PRINT USING "#####.###"; sp/w
COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2 =":LOCATE 18,38:PRINT "AMPER"
LOCATE 18,27:PRINT USING "#####.###"; sp/ww
ON TIMER (3) GOSUB spawi
TIMER ON
WHILE 3:SLEEP:WEND
spawi:
SOUND 493.88,5,100
SOUND 293.66,5,100
CLS:TIMER OFF
COLOR 8,0
LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
CIRCLE (50,152),4,1
LINE (50,50)-(50,150),1
LINE (50,50)-(100,50),1
LINE (100,40)-(250,60),9,b 'R1
LINE (100,80)-(250,100),9,b 'R2
LINE (50,90)-(100,90),1
LINE (250,50)-(300,50),1
LINE (250,90)-(300,90),1
LINE (300,50)-(300,150),1
CIRCLE (300,152),4,1
COLOR 15,0
LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
COLOR 9,0
LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
GOTO anfang
RETURN
wist:
SOUND 493.88,5,100
WINDOW 3,,(240,63)-(611,221),0,1
COLOR 10,0
CLS:TIMER OFF
LOCATE 3,8
INPUT "STROM am R1: ";i
LOCATE 6,8
INPUT "SPANNUNG : ";sp
LOCATE 9,8
INPUT "STROM : ";st
COLOR 14,0 :LOCATE 12,8:PRINT "GESAMTWIDERSTAND =":LOCATE 12,38:PRINT "OHM"
LOCATE 12,27:PRINT USING "#####.###";sp/st :rg=sp/st
COLOR 14,0 :LOCATE 14,8:PRINT "WIDERSTAND R1 =":LOCATE 14,38:PRINT "OHM"
LOCATE 14,27:PRINT USING "#####.###";sp/i : w=sp/i
COLOR 14,0 :LOCATE 16,8:PRINT "WIDERSTAND R2 =":LOCATE 16,38:PRINT "OMM"
LOCATE 16,27:PRINT USING "#####.###";(w*rg)/(w-rg) :ww=(w*rg)/(w-rg)
COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2 =":LOCATE 18,38:PRINT "AMPER"
LOCATE 18,27:PRINT USING "#####.###"; sp/ww
ON TIMER (3) GOSUB spawid
TIMER ON
WHILE 3:SLEEP:WEND
spawid:
SOUND 493.88,5,100
SOUND 293.66,5,100
CLS:TIMER OFF
COLOR 8,0
LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
CIRCLE (50,152),4,1
LINE (50,50)-(50,150),1
LINE (50,50)-(100,50),1
LINE (100,40)-(250,60),9,b 'R1
LINE (100,80)-(250,100),9,b 'R2
LINE (50,90)-(100,90),1
LINE (250,50)-(300,50),1
LINE (250,90)-(300,90),1
LINE (300,50)-(300,150),1
CIRCLE (300,152),4,1
COLOR 15,0
LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
COLOR 9,0
LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
GOTO anfang
RETURN
gesamt:
SOUND 493.88,5,100
WINDOW 3,,(240,63)-(611,221),0,1
COLOR 10,0
CLS:TIMER OFF
LOCATE 3,8
INPUT "WIDERSTAND R1: ";w
LOCATE 6,8
INPUT "WIDERSTAND R2: ";ww
rg=(w*ww)/(w+ww)
COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww)
ON TIMER (3) GOSUB widerstand
TIMER ON
WHILE 3:SLEEP:WEND
widerstand:
SOUND 493.88,5,100
SOUND 293.66,5,100
CLS:TIMER OFF
CIRCLE (50,152),4,1
LINE (50,50)-(50,150),1
LINE (50,50)-(100,50),1
LINE (100,40)-(250,60),9,b 'R1
LINE (100,80)-(250,100),9,b 'R2
LINE (50,90)-(100,90),1
LINE (250,50)-(300,50),1
LINE (250,90)-(300,90),1
LINE (300,50)-(300,150),1
CIRCLE (300,152),4,1
COLOR 9,0
LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
COLOR 2,0
LOCATE 17,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 17,26:PRINT"OHM RG"
GOTO anfang
RETURN
ende:
SOUND 493.88,5,100
SOUND 293.66,5,100
WINDOW CLOSE 2
SCREEN CLOSE 1
END
GOTO mausdruck